home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 12, No. 10 (1991-10)(MindCraft Publishing)(Side A)[a].zip / Nibble Volume 12, No. 10 (1991-10)(MindCraft Publishing)(Side A)[a].po / SETPBUF.MAC.txt < prev    next >
Text File  |  1996-12-24  |  2KB  |  199 lines
  1.  MACRO
  2. &lab _QuitGS ¶ms
  3. &lab jsl $E100A8
  4.  dc i2"$2029"
  5.  dc i4"¶ms"
  6.  MEND
  7.  MACRO
  8. &lab _TLStartUp
  9. &lab ldx #$0201
  10.  jsl $E10000
  11.  MEND
  12.  MACRO
  13. &lab _TLShutDown
  14. &lab ldx #$0301
  15.  jsl $E10000
  16.  MEND
  17.  MACRO
  18. &lab _MMStartUp
  19. &lab ldx #$0202
  20.  jsl $E10000
  21.  MEND
  22.  MACRO
  23. &lab _MMShutDown
  24. &lab ldx #$0302
  25.  jsl $E10000
  26.  MEND
  27.  MACRO
  28. &lab _CompactMem
  29. &lab ldx #$1F02
  30.  jsl $E10000
  31.  MEND
  32.  MACRO
  33. &lab _DisposeHandle
  34. &lab ldx #$1002
  35.  jsl $E10000
  36.  MEND
  37.  MACRO
  38. &lab _FindHandle
  39. &lab ldx #$1A02
  40.  jsl $E10000
  41.  MEND
  42.  MACRO
  43. &lab _HLock
  44. &lab ldx #$2002
  45.  jsl $E10000
  46.  MEND
  47.  MACRO
  48. &lab _HUnlock
  49. &lab ldx #$2202
  50.  jsl $E10000
  51.  MEND
  52.  MACRO
  53. &lab _NewHandle
  54. &lab ldx #$0902
  55.  jsl $E10000
  56.  MEND
  57.  MACRO
  58. &lab _SetHandleSize
  59. &lab ldx #$1902
  60.  jsl $E10000
  61.  MEND
  62.  MACRO
  63. &lab _MTStartUp
  64. &lab ldx #$0203
  65.  jsl $E10000
  66.  MEND
  67.  MACRO
  68. &lab _MTShutDown
  69. &lab ldx #$0303
  70.  jsl $E10000
  71.  MEND
  72.  MACRO
  73. &lab _SysBeep
  74. &lab ldx #$2C03
  75.  jsl $E10000
  76.  MEND
  77.  MACRO
  78. &lab pulllong &addr1,&addr2
  79. &lab ANOP
  80.  AIF C:&addr1=0,.a
  81.  AIF C:&addr2=0,.b
  82.  LCLC &C
  83. &C AMID &addr1,1,1
  84.  AIF "&C"="[",.zeropage
  85.  pullword &addr1
  86.  sta &addr2
  87.  pullword &addr1+2
  88.  sta &addr2+2
  89.  MEXIT
  90. .a
  91.  pullword
  92.  pullword
  93.  MEXIT
  94. .b
  95.  pullword &addr1
  96.  pullword &addr1+2
  97.  MEXIT
  98. .zeropage
  99.  ldy #&addr2
  100.  pullword &addr1,y
  101.  ldy #&addr2+2
  102.  pullword &addr1,y
  103.  MEND
  104.  MACRO
  105. &lab pullword &SYSOPR
  106. &lab ANOP
  107.  pla
  108.  AIF C:&SYSOPR=0,.end
  109.  sta &SYSOPR
  110. .end
  111.  MEND
  112.  MACRO
  113. &lab pushlong &addr,&offset
  114. &lab ANOP
  115.  LCLC &C
  116.  LCLC &REST
  117. &C AMID &addr,1,1
  118.  AIF "&C"="#",.immediate
  119.  AIF "&C"="[",.zeropage
  120.  AIF C:&offset=0,.nooffset
  121.  AIF "&offset"="s",.stack
  122.  pushword &addr+2,&offset
  123.  pushword &addr,&offset
  124.  MEXIT
  125. .nooffset
  126.  pushword &addr+2
  127.  pushword &addr
  128.  MEXIT
  129. .immediate
  130. &REST AMID &addr,2,L:&addr-1
  131.  dc I1'$F4',I2'(&REST)|-16'
  132.  dc I1'$F4',I2'&REST'
  133.  MEXIT
  134. .stack
  135.  pushword &addr+2,s
  136.  pushword &addr+2,s
  137.  MEXIT
  138. .zeropage
  139.  ldy #&offset+2
  140.  pushword &addr,y
  141.  ldy #&offset
  142.  pushword &addr,y
  143.  MEND
  144.  MACRO
  145. &lab pushword &SYSOPR
  146. &lab ANOP
  147.  AIF C:&SYSOPR=0,.b
  148.  LCLC &C
  149. &C AMID "&SYSOPR",1,1
  150.  AIF ("&C"="#").AND.(S:LONGA),.immediate
  151.  lda &SYSOPR
  152.  pha
  153.  MEXIT
  154. .b
  155.  pha
  156.  MEXIT
  157. .immediate
  158.  LCLC &REST
  159.  LCLA &BL
  160. &BL ASEARCH "&SYSOPR"," ",1
  161.  AIF &BL>0,.a
  162. &BL SETA L:&SYSOPR+1
  163. .a
  164. &REST AMID "&SYSOPR",2,&BL-2
  165.  dc I1'$F4',I2'&REST'
  166.  MEND
  167.  MACRO
  168. &lab native &mode
  169. &lab ANOP
  170.  clc
  171.  xce
  172.  AIF C:&mode=0,.a
  173.  &mode
  174.  MEXIT
  175. .a
  176.  long
  177.  MEND
  178.  MACRO
  179. &lab emulation
  180. &lab ANOP
  181.  sec
  182.  xce
  183.  longa off
  184.  longi off
  185.  MEND
  186.  MACRO
  187. &lab long
  188. &lab ANOP
  189.  rep #%00110000
  190.  longa on
  191.  longi on
  192.  MEND
  193.  MACRO
  194. &lab shortm
  195. &lab ANOP
  196.  sep #%00100000
  197.  longa off
  198.  MEND
  199.